100 SC=40
110 DIM SI(24),SU(24)
120 CALL CLEAR
130 RANDOMIZE
140 CALL SCREEN(2)
150 RESTORE
160 DATA 262,262,262,262,262,262,262,262,262,262,262,262,247,247,247,247,247,247,247,247,247,247,247,247
170 FOR I=1 TO 24
180 READ SU(I)
190 NEXT I
200 DATA 523,523,523,523,659,659,659,659,784,784,784,784,587,587,587,587,698,698,698,698,494,494,494,494
210 FOR I=1 TO 24
220 READ SI(I)
230 NEXT I
240 CALL CHAR(128,"0E0B8EFC7C783060")
250 CALL CHAR(129,"70D0713F3E1E0C06")
260 CALL CHAR(130,"0E0B8EFC7C782018")
270 CALL CHAR(96,"FFFFC1C0C4FCFCC4")
280 CALL CHAR(97,"C0C1FFFF")
290 CALL CHAR(98,"FFFFC1C0C0C0C7C3")
300 CALL CHAR(99,"C3C3FFFF")
310 CALL CHAR(112,"FFFFC1C0C0C0C7C3")
320 CALL CHAR(113,"C3C3FFFF")
330 CALL CHAR(114,"FFFFC1C0C0FFFF03")
340 CALL CHAR(115,"0383FFFF")
350 FOR I=1 TO 8
360 CALL COLOR(I,8,2)
370 NEXT I
380 CALL COLOR(9,12,2)
390 CALL COLOR(13,11,2)
400 CALL COLOR(11,7,2)
410 CALL CHAR(131,"70D0713F3E1E0418")
420 CALL CHAR(152,"003C7E5A18181800")
430 CALL COLOR(16,8,2)
440 CALL CHAR(136,"00003C7E7E3C0000")
450 PRINT "          ` p b r                a q c s      ": : : :"                "
460 PRINT :"      BY LUCA BRENTARO     ": :"          (C) 1983          ": : : : : :
470 FOR I=1 TO 15
480 CALL COLOR(9,12,2)
490 CALL COLOR(11,7,2)
500 CALL SOUND(-100,131,20,262,20)
510 FOR A=1 TO 20
520 NEXT A
530 CALL COLOR(9,7,2)
540 CALL COLOR(11,12,2)
550 CALL SOUND(-100,523,20,1047,20)
560 FOR A=1 TO 20
570 NEXT A
580 NEXT I
590 CALL CLEAR
600 IF PU>SC THEN 610 ELSE 620
610 SC=PU
620 OV=3
630 IS=0
640 PU=-6
650 REM     ELSE   ELSE   ELSE   ELSE   
660 FOR I=2 TO 8
670 CALL COLOR(I,2,2)
680 NEXT I
690 PU=PU+(OV*2)
700 CALL COLOR(9,2,2)
710 OV=OV+2
720 IS=IS+1
730 PRINT TAB(22);"SCORE": :TAB(22);PU: : : :TAB(22);"LEVEL": :TAB(22);TAB(22);IS: : : :TAB(22);"MAX S": :TAB(22);SC: : : :TAB(22);"` b b"
740 PRINT TAB(22);"a c c": :
750 CALL HCHAR(1,1,31,32)
760 CALL HCHAR(24,1,31,32)
770 CALL VCHAR(1,1,31,24*3)
780 CALL VCHAR(1,30,31,24*3)
790 CALL COLOR(14,16,2)
800 CALL CHAR(34,"00")
810 FOR I=1 TO 8
820 CALL COLOR(I,16,2)
830 NEXT I
840 CALL COLOR(9,8,2)
850 CALL SCREEN(5)
860 CALL CHAR(144,"FFFFFFFFFFFFFFFF")
870 CALL HCHAR(2,4,144,19)
880 CALL HCHAR(23,4,144,19)
890 CALL VCHAR(3,4,144,20)
900 CALL VCHAR(3,22,144,20)
910 CALL VCHAR(3,23,34,20)
920 CALL COLOR(15,14,1)
930 CALL HCHAR(12,13,130)
940 UV=0
950 FOR I=1 TO OV
960 B=INT(RND*15)+6
970 A=INT(RND*18)+4
980 CALL GCHAR(A,B,X)
990 IF X<>32 THEN 960
1000 CALL SOUND(-100,-1,20)
1010 CALL HCHAR(A,B,136)
1020 NEXT I
1030 A=12
1040 B=13
1050 C=1
1060 D=0
1070 E=128
1080 E1=130
1090 A1=0
1100 GOTO 1470
1110 A=A+C
1120 B=B+D
1130 A1=A1+1
1140 CALL GCHAR(A,B,X)
1150 IF(X=32)+(X=136)THEN 1160 ELSE 1740
1160 CALL HCHAR(A-C,B-D,32)
1170 CALL HCHAR(A,B,E)
1180 CALL SOUND(-200,SU(A1),10,392,10,SI(A1),2)
1190 CALL HCHAR(A,B,E1)
1200 IF A1=24 THEN 1210 ELSE 1220
1210 A1=0
1220 IF X=136 THEN 1230 ELSE 1410
1230 UV=UV+1
1240 IF UV=OV THEN 1520 ELSE 1410
1250 C=0
1260 D=1
1270 E=128
1280 E1=130
1290 GOTO 1110
1300 C=0
1310 D=-1
1320 E=129
1330 E1=131
1340 GOTO 1110
1350 C=1
1360 D=0
1370 GOTO 1110
1380 C=-1
1390 D=0
1400 GOTO 1110
1410 I=INT(RND*10)+0
1420 IF I<IS THEN 1430 ELSE 1470
1430 CALL GCHAR(A+(C*2),B+(D*2),X)
1440 IF X<>32 THEN 1470
1450 CALL HCHAR(A+(C*2),B+(D*2),152)
1460 CALL SOUND(-100,523,2,392,2,1047,2)
1470 CALL KEY(3,K,S)
1480 IF K=68 THEN 1250
1490 IF K=83 THEN 1300
1500 IF K=88 THEN 1350
1510 IF K=69 THEN 1380 ELSE 1110
1520 FOR I=1 TO 5
1530 CALL SOUND(-500,262,10,392,10,523,1)
1540 FOR I1=1 TO 20
1550 NEXT I1
1560 CALL SOUND(-500,262,10,392,10,392*2,1)
1570 NEXT I
1580 CALL HCHAR(A,B,130)
1590 FOR I=1 TO 5
1600 CALL CHAR(130,"CE6B6EFCFC782030")
1610 CALL SOUND(100,131,20)
1620 CALL CHAR(130,"0E0B8EFC7C782018")
1630 CALL SOUND(100,131,20,262,20,523,20)
1640 NEXT I
1650 A1=0
1660 A1=A1+1
1670 CALL SOUND(200,SU(A1),25,392,25,SI(A1)*2,10)
1680 IF A1=24 THEN 1690 ELSE 1660
1690 CALL SOUND(-1000,523,10,659,10,1047,10)
1700 CALL SCREEN(2)
1710 CALL CLEAR
1720 CALL COLOR(15,2,2)
1730 GOTO 650
1740 FOR I=0 TO 30 STEP 3
1750 CALL SOUND(-300,131,I,165,I,196,I)
1760 NEXT I
1770 CALL HCHAR(A-C,B-D,130)
1780 CALL CHAR(130,"00000000187EFF")
1790 FOR I=0 TO 30 STEP 8
1800 CALL SOUND(-300,-7,I)
1810 NEXT I
1820 FOR I=1200 TO 1025 STEP-25
1830 CALL SOUND(-300,I,1)
1840 NEXT I
1850 PU=PU+(UV*2)
1860 A$=STR$(PU)
1870 FOR I=1 TO LEN(A$)
1880 CALL HCHAR(5,24+I,ASC(SEG$(A$,I,1)))
1890 NEXT I
1900 FOR I=1 TO 500
1910 NEXT I
1920 FOR I=460 TO 420 STEP-2
1930 CALL SOUND(1,I,4)
1940 CALL SCREEN(2)
1950 NEXT I
1960 CALL CLEAR
1970 GOTO 240
